.DO External 

.LSTON 

. Page 

; > 

;> Module: Data Exception Handiinq 

}> 

;> PROCEDURE: Data_Ex_HandleK ErrorCode : ? BITS { !rO/Bits 6:0 > ) 

;> 

.LSTOFF 

.FIN 

.00 External 

.LSTON 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: DataJEx-Handler { data exception handler } 
> 

> This procedure is responsible for cleaning up after some sort 

> of data error C spare ing, bad-blocking, etc. >. It is 

> assumed that it" spare ing is going to occur that correct data must 

> be residing in Buffer2. 
> 

> Inputs: 

> ErrorCode : ? BITS { IrO/Bits 6:0 } 
> 

> Outputs: { none } 

> Algorithm: 
> 

> BEGIN 

> IF N0T< DiskStatus.MrJOp ) THEN SetStatus< ReadError > 

> CRSE ErrorCode OF 

> : SetStatusC OperationFai led > 
> 

> 2 : Spare < Spare > 
> 

> 4 : Spare < BadBlock > 

> SetStatus< OperationFai led ) 
> 

> 6 : SetStatus< ErrorCount > 
y 

> 8 : SetStatusC NoHeaderFound > 

> Spare < BadBlock > 

> SetStatus< OperationFai led ) 
> 

> ft : SetStatusC NoHeaderFound > 

> SpareC Spare > 

> OTHERWISE Abort 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

-FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 

Data JEx_Hand I er : 

Push !r0 .save error code 





Call 


ExtPush_Uector ;save state 




Tm 


DiskStat..*Wr_Op 




Jr 


Z t Data_£x_RdErr 




Ld 


!r0,*3 ;load status bqte 3 




Ld 


!M,WrErrCnt 




Call 


SetStatus 




Jr 


Data_ExJCase 


Data_Ex_RdErr : 


Call 


SS_ReadErr 


Data_Ex_£ase : 


Ld 


!r2,*.HIBVTE. Set_SeekNeeded 




Ld 


! r3, * . LOWBVTE . Set JSeekNeeded 




Cat! 


BankJCai 1 ; update cache on next Pi 




Pop 


!r1 ;get error code back 




find 


!r1,*$7F ;mask off error flag 




Tift 


! r 1 f *0 1 ; see i f error code i s odd 




Jr 


flz, Da ta_Ex_Rbor t 




Cp 


! r 1 j, *ExJCase_J1ax ; bounds check 




Jr 


Le, DataJEx J&nnd 


Data_Ex_flbort: 


Call 


fibort 


Data_£x_Cisnd : 


Ld 


!r2,*.HIBYTE. Ex_Jp_Tbl 




Ld 


!r3,*.LQWBYTE. Ex^Jp_Tbl 




fidd 


!r3, \r\ ;add offset 




fide 


!r-2,*0 




Ldc 


! rE t & ! ! r2 ; qe t rou t i ne to execu te 




I new 


!!r2 




Ldc 


!rF,§!!r2 




Jp 


SMrE ;go to routine 


Ex_Jp_Tbi: 


.DW 


XJJndeter 




.DW 


XJSpare 




.DW 


X_BadB!ock 




.DW 


XJReadErr 




.DW 


X_HdrBadBiock 




.DW 


X_HdrSpare 


XJJndeter: 


Caii 


SSJOpFail 




Jr 


ExceptJReturn 


X JSpare : 


Ld 


!rfl JSpare 


X_SprJCalf : 


Call 


SprBlock 




Jr 


Exeept_Return 


X_BadBiock: 


Ld 


!r4,*4 ; retry 4 times 


X_BB_Lp: 


Push 


!r4' 




Caii 


Bad_Recover 




Pop 


!r4 




Jr 


Hz/X_Spare 




Djnz 


!r4,X_BB_Lp 




Call 


SSJOpFail 




Ld 


!rfi,*BadB!ock 




Jr 


XJSpr_Caii 


X_ReadErr : 


Call 


SS_ReadErr 




Ld 


!r2,«.HI6YTE. Buf2_To_EBuf 




Ld 


! r3, * . LOWBYTE . Buf 2_To_J3Buf 




Caii 


BankJCai! 



Except-Return : 



X_HdrBadBioek: 



Cai j ExtPop_Uector 

Jp Bank-Ret 

Ca I i Bad-Recover 

Jr Nz,X-Spare 

Cai 1 SS_NoHdr 

Cai ! LocateSector 

Ld !r2,«.HIBVTE. ReadHdr 

Ld !r-3,*.L0WBYTE. ReadHdr 

Call BankJCall 

Jr Z:X_Hdr_£rct 



X_Hdr_£rct: 



X_HdrSpare : 



Ld «r2,#.HIBVTE. RBuf_To_Buf2 

Ld !r3,*.L0WBVTE. RBuf_To_Buf2 

Call Bank-Call 

Jr X_Spare 

Ld !r2,*.HIBYTE. Ecc 

Ld !r3,*.L0UBVTE. Ecc 

Call BankJCall 

Jr Z,X_BadBlock 

Call SSJtoHdr 

Jr XjSpare 



.LSTOFF 

.BO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: Bad_Recover 



> This function is called when a block can not be read, either the 

> header can not be found or there is a hard data error. The purpose 

> here is to use the auto offset capabilities of the servo controller 

> and reread the block. 
> 

> Inputs: { none } 
> 

> Outputs: 

> Bad-Recover: BOOLEAN { zero flag set if failure on retry } 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO internal 
.LSTON 
.Paqe 
.FIN 



Bad_Recover : 



Tib DiskS tat, *Offset_J0n ; check for auto_offset 
Jr Nz,B_Rcvr_Bead 

Call ReSeek 



B_Rcvr_Read : Ca 1 1 Read -Common 

Jr Nz^Bad-Rcvr-Ret 

Cp IrO^Error+Ex-ReadErr 

Jr Z,Bad_Rc_Spr 





Cp 
Jr 


! rO f »Error+Ex_BadB 1 ock 
Z,Bad_Rc_Ecc 




Cp 
Jr 


! rO f »Error+Ex_SprB 1 ock 
Z_,Bad_RcJSpr 


Bad_Rc-J5et: 


Ld 
Or 
Jr 


IrO^O 
!rO, !rO 
Bad_Rcvr_Ret 


Bad_Rc_Spr: 


Ld 
Jr 


!rO,*1 
Bad_Rc.JSet 


Bad_Rc_Ecc : 


Ld 

Ld 

Call 


!r2,*.HIBVTE. Ecc 
!r3,*.L0WBVTE. Ecc 
BankJCal 1 


Bad_Rcvr_Ret: 


Ret 
.LSTOFF 





